/*-------------------<-- Start of Description-->---------------------\ | Force the system to wait for a couple of senconds: default is 2 | | seconds; | |---------------------<-- End of Description-->----------------------| |--------------------------------------------------------------------| |------------<-- Start of Files or Arguments Needed-->---------------| | Argument: | | second: the number of seconds you want the system to wait; | | default is 2 seconds; | |---------------<-- End of Files Arguments Needed-->-----------------| |--------------------------------------------------------------------| |------------------<-- Start of Files Created-->---------------------| | Example: %openword; | | %wait(3); | | %readword(...); | | Usage: %wait(second); | \-------------------<-- End of Files Created-->---------------------*/ %macro wait/parmbuff; /*--------------------------------------------\ | Copy Right: Duo Zhou; | | Created: 2-27-2001 9:28pm; | | Modified: 6-4-2001 10:11pm; | | Purpose: Force the SAS system sleep for a | | couple of seconds; | \--------------------------------------------*/ %local waitid second; %let seconds=%qscan(&syspbuff,1,%str((),)); %if &seconds ne %then %do; %let waitid=%sysfunc(sleep(&seconds)); %end; %else %do; %let waitid=%sysfunc(sleep(2)); %end; %mend wait;